home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / orbit / sons.frm < prev    next >
Text File  |  1995-12-05  |  4KB  |  141 lines
  1. VERSION 2.00
  2. Begin Form sons 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Second Sun"
  6.    ClientHeight    =   2715
  7.    ClientLeft      =   1500
  8.    ClientTop       =   1785
  9.    ClientWidth     =   4365
  10.    Height          =   3120
  11.    Icon            =   SONS.FRX:0000
  12.    Left            =   1440
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   2715
  17.    ScaleWidth      =   4365
  18.    Top             =   1440
  19.    Width           =   4485
  20.    Begin SSPanel SSPanel3 
  21.       AutoSize        =   3  'AutoSize Child To Panel
  22.       BevelInner      =   1  'Inset
  23.       BevelWidth      =   2
  24.       ForeColor       =   &H00000000&
  25.       Height          =   615
  26.       Left            =   720
  27.       TabIndex        =   7
  28.       Top             =   1920
  29.       Width           =   2895
  30.       Begin SSCommand SSCommand1 
  31.          AutoSize        =   2  'Adjust Button Size To Picture
  32.          Caption         =   "O.K."
  33.          Font3D          =   3  'Inset w/light shading
  34.          ForeColor       =   &H00000000&
  35.          Height          =   405
  36.          Left            =   105
  37.          TabIndex        =   8
  38.          Top             =   105
  39.          Width           =   2685
  40.       End
  41.    End
  42.    Begin TextBox sun2ys 
  43.       Height          =   375
  44.       Left            =   1800
  45.       TabIndex        =   2
  46.       Top             =   1440
  47.       Width           =   2415
  48.    End
  49.    Begin SSPanel SSPanel2 
  50.       AutoSize        =   3  'AutoSize Child To Panel
  51.       BevelInner      =   1  'Inset
  52.       BevelWidth      =   2
  53.       ForeColor       =   &H00000000&
  54.       Height          =   735
  55.       Left            =   120
  56.       TabIndex        =   5
  57.       Top             =   1080
  58.       Width           =   735
  59.       Begin PictureBox Picture2 
  60.          Height          =   525
  61.          Left            =   105
  62.          Picture         =   SONS.FRX:0302
  63.          ScaleHeight     =   495
  64.          ScaleWidth      =   495
  65.          TabIndex        =   6
  66.          Top             =   105
  67.          Width           =   525
  68.       End
  69.    End
  70.    Begin TextBox sun2xs 
  71.       Height          =   375
  72.       Left            =   1800
  73.       TabIndex        =   1
  74.       Top             =   840
  75.       Width           =   2415
  76.    End
  77.    Begin TextBox sun2mass 
  78.       Height          =   375
  79.       Left            =   1800
  80.       TabIndex        =   0
  81.       Top             =   240
  82.       Width           =   2415
  83.    End
  84.    Begin SSPanel SSPanel1 
  85.       AutoSize        =   3  'AutoSize Child To Panel
  86.       BevelInner      =   1  'Inset
  87.       BevelWidth      =   2
  88.       ForeColor       =   &H00000000&
  89.       Height          =   780
  90.       Left            =   120
  91.       TabIndex        =   3
  92.       Top             =   120
  93.       Width           =   735
  94.       Begin PictureBox Picture1 
  95.          AutoSize        =   -1  'True
  96.          Height          =   510
  97.          Left            =   105
  98.          Picture         =   SONS.FRX:0604
  99.          ScaleHeight     =   480
  100.          ScaleWidth      =   480
  101.          TabIndex        =   4
  102.          Top             =   105
  103.          Width           =   510
  104.       End
  105.    End
  106.    Begin Label Label1 
  107.       BackColor       =   &H00C0C0C0&
  108.       Caption         =   "Sun Y"
  109.       Height          =   375
  110.       Left            =   960
  111.       TabIndex        =   9
  112.       Top             =   1440
  113.       Width           =   735
  114.    End
  115.    Begin Label Label2 
  116.       BackColor       =   &H00C0C0C0&
  117.       Caption         =   "Sun X"
  118.       Height          =   375
  119.       Left            =   960
  120.       TabIndex        =   10
  121.       Top             =   840
  122.       Width           =   735
  123.    End
  124.    Begin Label Label3 
  125.       BackColor       =   &H00C0C0C0&
  126.       Caption         =   "Mass"
  127.       Height          =   375
  128.       Left            =   960
  129.       TabIndex        =   11
  130.       Top             =   240
  131.       Width           =   735
  132.    End
  133. End
  134. Sub SSCommand1_Click ()
  135.     sun2 = Val(sun2mass.text)
  136.     sun2x = Val(sun2xs.text)
  137.     sun2y = Val(sun2ys.text)
  138.     sons.windowstate = 1
  139. End Sub
  140.  
  141.